home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmtb.dir / 00006_speeder.ls < prev    next >
Encoding:
Text File  |  2001-09-12  |  1.2 KB  |  69 lines
  1. property meSprite, trainSprite, meSpeedNum, mPos, b, mOn
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   trainSprite = sprite(gmObject.wholeTrain)
  6.   meSprite = sprite(me.spriteNum - 1)
  7.   meSpeedNum = 0
  8.   mOn = 0
  9. end
  10.  
  11. on mouseDown me
  12.   mPos = the mouseH
  13.   b = meSpeedNum
  14.   mOn = 1
  15. end
  16.  
  17. on mouseUp me
  18.   mOn = 0
  19. end
  20.  
  21. on mouseUpOutSide me
  22.   mOn = 0
  23. end
  24.  
  25. on exitFrame me
  26.   if mOn = 1 then
  27.     v = (the mouseH - mPos) / 5
  28.     meSpeedNum = v + b
  29.     if meSpeedNum < 0 then
  30.       meSpeedNum = 0
  31.     else
  32.       if meSpeedNum > 9 then
  33.         meSpeedNum = 9
  34.       end if
  35.     end if
  36.     meSprite.member = member("n" & string(meSpeedNum), 1)
  37.     trainSprite.fixedRate = meSpeedNum * 5
  38.     if meSpeedNum > 1 then
  39.       v = "motor" & string(meSpeedNum / 2)
  40.       if sound(1).member <> member(v, 1) then
  41.         sound(1).play(member(v, 1))
  42.       end if
  43.     else
  44.       if meSpeedNum = 1 then
  45.         if sound(1).member <> member("motor1", 1) then
  46.           sound(1).play(member("motor1", 1))
  47.         end if
  48.       else
  49.         if soundBusy(1) = 1 then
  50.           sound(1).stop()
  51.         end if
  52.       end if
  53.     end if
  54.     updateStage()
  55.   end if
  56. end
  57.  
  58. on mouseEnter me
  59.   cursor([500, 501])
  60. end
  61.  
  62. on mouseLeave me
  63.   cursor(0)
  64. end
  65.  
  66. on endSprite me
  67.   cursor(0)
  68. end
  69.